Apple II Magazines (PO)/Nibble Volume 10, No. 07 (1989-07)(MindCraft Publishing)(Side A).zip/Nibble Volume 10, No. 07 (1989-07)(MindCraft Publishing)(Side A).po/EXPLORER.bas

BASIC Source File | 1996-12-24 | 626b | 2 lines

10  FOR A = 0 TO 14: READ B: POKE 768 +A,B: NEXT : HOME : FOR W = 50 TO 16  STEP  -2: HGR : HCOLOR= 3: FOR X = 0 TO 27.9  STEP .3:Y = 91 -10 * SIN(X): HPLOT X *10,Y: HPLOT X *10,Y +W: NEXT : FOR I = 1 TO W -20: HPLOT  RND(1) *270 +9,100 + RND(1) *(W -20): NEXT : DATA 1,0,4,0,53,45,62,63,63,44,37,0,39,4,0
20  POKE 232,0: POKE 233,3: ROT= 0: SCALE= 1:Y = 86 +W/2: FOR X = 2 TO 276  STEP 2:J =  PDL(1):Y = Y +(J >160) -(J <100): XDRAW 1 AT X,Y:S =  PEEK( -16336):L = L +10: VTAB 22: PRINT "LENGTH:"L: XDRAW 1 AT X,Y: IF   NOT  PEEK(234)  THEN  NEXT X,W: PRINT "YOU GOT IT!": FOR X = 0 TO 50: XDRAW 1 AT 276,Y: CALL  -856: NEXT